local ssize = 199999 - 512
local svals = {}
local http = game:GetService("HttpService")

local function pad(s)
    s = tostring(s)
    return s .. string.rep("!", ssize - #s)
end


local function createSValue()
    local strv = Instance.new("StringValue")
    local pos = #svals+1

    strv.Value = "_________" .. pad(("_rerolpxe_xbr"):reverse() .. pos .. "_")

    svals[pos] = strv
end

local function checkUpdated()
    for k,v in next, svals do
        if v.Value:sub(1,9) == "_________" then
            return false
        end
    end

    return true
end

local function streamString(text)
    local s = {}
    local c = 0
    for i=1, #text, ssize do
        c = c + 1
        svals[c].Value = "expr_res_" .. pad(text:sub(i,i+ssize - 1))
    end
    return s
end

local function serialize(obj, nd)
    local tbl = {
        name = tostring(obj),
        class = obj.ClassName,
        children = {}
    }

    if nd == nil then
        for k,v in next, obj:GetChildren() do
            local s, e = pcall(serialize, v, true)

            if s then
                tbl.children[#tbl.children+1] = e
            end
        end
    end

    return tbl
end

for i = 1, 10 do
    createSValue()
end

repeat
    task.wait()
until checkUpdated()

while task.wait() do
    local newValue = http:JSONEncode(serialize(game))
    
    streamString(newValue)
end